home *** CD-ROM | disk | FTP | other *** search
/ Chip 2002 July / 07_02.iso / software / xq-xsetup / files / setup.exe / {app} / plugins / XQ NoOpen Files Add.xpl < prev    next >
Text File  |  2002-03-14  |  1KB  |  44 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="5"
  3. "COUNT"="1"
  4. "UIPATH"="Appearance\Files&Folders\Files Open Warning"
  5. "NAME"="Add File Open Warning"
  6. "VERSION"="1.00"
  7. "LANGUAGE"="VBScript"
  8. "OSVERSION"="000101"
  9. "TEXT 1"="Add new file to the File Open Warning list"
  10. "DESCRIPTION 1"="This plug-in allows you to add a new file type that currently does not have an open warning. After adding it, you can change the Open Warning with the "Edit File Open Warnings" plug-in."
  11. "DESCRIPTION 2"="Please enter the file extension without the beginning ".", e.g. "TXT" (no quotes)."
  12. "AUTHOR"="Xteq Systems"
  13. "CONTACTURL"="http://www.xteq.com"
  14. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  15. "COMMENT 1"=" "
  16.  
  17.  
  18. sP="HKLM\Software\Classes\"
  19.  
  20.  
  21. Sub Plugin_Initialize 
  22. End Sub
  23.  
  24. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  25.     if ElementIndex=1 then
  26.        s=InputWindow("Please enter the extension of the file type, without the beginning dot, e.g. TXT","TXT",1) 
  27.        if IsEmpty(s)=false then
  28.           if RegValueExists(sP & "." & s & "\NoOpen") then
  29.              Call MsgError("This file type has already an open warning")
  30.           else
  31.              Call RegWriteValue(sP & "." & s & "\NoOpen","",1)
  32.           end if
  33.  
  34.        end if
  35.     end if
  36.  
  37. End Sub
  38.  
  39.  
  40.  
  41.  
  42. Sub Plugin_Terminate 
  43. End Sub
  44.